(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      7035,        193]
NotebookOptionsPosition[      5721,        158]
NotebookOutlinePosition[      6253,        178]
CellTagsIndexPosition[      6210,        175]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:65b9\:5dee", "Chapter",
 CellChangeTimes->{{3.849066533029242*^9, 3.849066552818221*^9}, 
   3.9300455513370113`*^9, 
   3.9302126981264305`*^9},ExpressionUUID->"dc8207e8-11c7-4c4f-9e91-\
d3a329f99a2c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.9302165316987324`*^9, 3.930216553799183*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"1a13067a-00b4-6846-855e-aadbbc35959c"],

Cell[CellGroupData[{

Cell["\:65b9\:5dee", "Subchapter",
 CellChangeTimes->{
  3.8490665628572245`*^9, {3.849066691080045*^9, 3.849066691775115*^9}, {
   3.849067548384778*^9, 3.8490675485267916`*^9}, 3.9300455660011463`*^9, {
   3.930212706068674*^9, 
   3.9302127108509617`*^9}},ExpressionUUID->"b670d0aa-6b5b-1e40-bee6-\
bf81b731571d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Variance", "[", 
     RowBox[{"{", 
      RowBox[{"1.", ",", 
       RowBox[{"-", "30"}], ",", "50", ",", "40"}], "}"}], "]"}], ",", 
    RowBox[{"(*", "\:4e25\:91cd\:504f\:79bb\:5747\:503c", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Variance", "[", 
     RowBox[{"{", 
      RowBox[{"1.", ",", "1.1", ",", "0.9", ",", "1.01"}], "}"}], "]"}], ",", 
    RowBox[{"(*", "\:504f\:79bb\:4e00\:70b9", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Variance", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}], 
   RowBox[{"(*", "\:4e0d\:504f\:79bb\:5747\:503c", "*)"}], 
   "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.930215999828392*^9, 3.9302160225130386`*^9}, {
  3.9302160552886887`*^9, 3.930216090392416*^9}, {3.930216515441065*^9, 
  3.9302165262958393`*^9}, {3.9302165599768963`*^9, 3.9302167481152935`*^9}, {
  3.930216788741337*^9, 3.930216937652128*^9}, {3.9302169819945564`*^9, 
  3.9302169828578625`*^9}, {3.9302170343057117`*^9, 3.9302171051043625`*^9}, {
  3.930217135104788*^9, 3.9302171698958073`*^9}, {3.930217410404501*^9, 
  3.930217418660057*^9}, {3.930217837194433*^9, 3.9302179445883293`*^9}, {
  3.930218012906374*^9, 3.9302180247540455`*^9}, {3.930218054754532*^9, 
  3.9302180829453335`*^9}, {3.930218113385004*^9, 3.9302181274006805`*^9}, {
  3.9302199698913097`*^9, 3.9302200478477592`*^9}, {3.930220223964916*^9, 
  3.930220226460182*^9}, {3.930220292194704*^9, 3.9302203867780743`*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"c133604e-3e15-504c-b4f6-487d85d38b68"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1356.9166666666667`", ",", "0.0066916666666666695`", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.9302200482576885`*^9, 3.9302202295870247`*^9, {3.930220317645775*^9, 
   3.930220387436222*^9}},
 CellLabel->
  "Out[159]=",ExpressionUUID->"96362e13-0410-ea48-9d1b-17783ed66e28"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:534f\:65b9\:5dee", "Subchapter",
 CellChangeTimes->{
  3.8490665628572245`*^9, {3.849066691080045*^9, 3.849066691775115*^9}, {
   3.849067548384778*^9, 3.8490675485267916`*^9}, 3.9300455660011463`*^9, {
   3.930212706068674*^9, 3.9302127108509617`*^9}, {3.9302178052754536`*^9, 
   3.9302178125711193`*^9}},ExpressionUUID->"40b69004-c7c5-074b-8537-\
d93502c4e94c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Covariance", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\:6b63\:76f8\:5173", ",", 
     RowBox[{"\:534f\:65b9\:5dee", ">", "0"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Covariance", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\:8d1f\:76f8\:5173", ",", 
     RowBox[{"\:534f\:65b9\:5dee", "<", "0"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Covariance", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "    ", 
  RowBox[{"(*", 
   RowBox[{"\:65e0\:5173", ",", 
    RowBox[{"\:534f\:65b9\:5dee", "=", "0"}]}], "*)"}], "\[IndentingNewLine]",
   "}"}]], "Input",
 CellChangeTimes->{{3.9302181552804165`*^9, 3.9302181587646313`*^9}, {
  3.9302182017918167`*^9, 3.930218210990896*^9}, {3.9302200645775204`*^9, 
  3.930220106845127*^9}, {3.930220169446287*^9, 
  3.930220285540289*^9}},ExpressionUUID->"d2ef62fa-8875-1046-9493-\
a8404899d431"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["5", "3"], ",", 
   RowBox[{"-", 
    FractionBox["5", "3"]}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9302181600439053`*^9, 3.930218211449875*^9, {3.930220082106987*^9, 
   3.9302201076708755`*^9}, {3.9302201961788006`*^9, 3.93022023228047*^9}},
 CellLabel->
  "Out[152]=",ExpressionUUID->"22b82e98-516c-9c40-8f69-f449954ff79c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->{"EditBar", "MultipurposeBar"},
WindowSize->{1525.2, 790.8},
WindowMargins->{{
  Automatic, -5.399999999999864}, {-5.399999999999977, Automatic}},
Magnification:>1.55 Inherited,
FrontEndVersion->"14.0 for Microsoft Windows (64-bit) (2023\:5e7412\:670812\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"511e0a49-1011-1148-b01f-7320385155c6"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 210, 4, 105, "Chapter",ExpressionUUID->"dc8207e8-11c7-4c4f-9e91-d3a329f99a2c"],
Cell[793, 28, 236, 5, 66, "Input",ExpressionUUID->"1a13067a-00b4-6846-855e-aadbbc35959c"],
Cell[CellGroupData[{
Cell[1054, 37, 316, 6, 98, "Subchapter",ExpressionUUID->"b670d0aa-6b5b-1e40-bee6-bf81b731571d"],
Cell[CellGroupData[{
Cell[1395, 47, 1670, 31, 275, "Input",ExpressionUUID->"c133604e-3e15-504c-b4f6-487d85d38b68"],
Cell[3068, 80, 329, 8, 49, "Output",ExpressionUUID->"96362e13-0410-ea48-9d1b-17783ed66e28"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3446, 94, 372, 6, 98, "Subchapter",ExpressionUUID->"40b69004-c7c5-074b-8537-d93502c4e94c"],
Cell[CellGroupData[{
Cell[3843, 104, 1437, 37, 245, "Input",ExpressionUUID->"d2ef62fa-8875-1046-9493-a8404899d431"],
Cell[5283, 143, 398, 10, 68, "Output",ExpressionUUID->"22b82e98-516c-9c40-8f69-f449954ff79c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

